;Start of program
	XPROG
	400
		;Initialization - AFFIX driver_grasp to driver_tip
	XPUSH
	L1
	XAFFIX
		;DRIVER_TIP
	13
		;DRIVER_GRASP
	12
	2000
		;.DRIVER_TRANS
	14
		;Init (cont) - AFFIX moving_jaw to fixed_jaw
		;		Wait till VISE is ready
		;End of Initialization
		;BLOCK
	XMVAR
		;Events
	4
	1
	0
		;BLOCK
	XMVAR
		;Arrays
		;SC
	1001
	1
	100100
	100001
	0
		;BLOCK
	XMVAR
		;Arrays
		;VT
	1002
	1
	100100
	100001
	0
		;BLOCK
	XMVAR
		;Arrays
		;TR
	1003
	1
	100100
	100001
	0
		;BLOCK
	XMVAR
		;Arrays
		;EVE
	1004
	1
	100100
	100001
	0
		;BLOCK
	XMVAR
		;Scalars
	1
	1
	0
		;FOR LOOP
	XPUSH
	L2
	XPUSH
	L3
	XPUSH
	L2
L4:	XFORCHK
		;I
	405
	L5
		;Assignment
	XPUSH
	L6
		;Array reference
	XGTVAL
		;I
	405
	XCHNGE
		;SC
	401
	XFOREND
	L4
L5:		;END FOR
		;FOR LOOP
	XPUSH
	L2
	XPUSH
	L3
	XPUSH
	L2
L7:	XFORCHK
		;I
	405
	L10
		;Assignment
	XPUSH
	L11
		;Array reference
	XGTVAL
		;I
	405
	XCHNGE
		;VT
	402
	XFOREND
	L7
L10:		;END FOR
		;FOR LOOP
	XPUSH
	L2
	XPUSH
	L3
	XPUSH
	L2
L12:	XFORCHK
		;I
	405
	L13
		;Assignment
	XPUSH
	L14
		;Array reference
	XGTVAL
		;I
	405
	XCHNGE
		;TR
	403
	XFOREND
	L12
L13:		;END FOR
		;Print
	XPRINT
	L15
		;Event operation
	XWAITE
		;EV
	400
		;BLOCK
	XMVAR
		;Scalars
	1
	144
	0
		;BLOCK
	XMVAR
		;Scalars
	1
	144
	0
		;BLOCK
	XMVAR
		;Scalars
	1
	62
	0
		;Block end cleanup
	XKVAR
	62
		;End of BLOCK
		;Block end cleanup
	XKVAR
	144
		;End of BLOCK
		;Block end cleanup
	XKVAR
	144
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1
		;End of BLOCK
		;Block end cleanup
	XKVAR
	1
		;End of BLOCK
	XENDP
		;End of program